(defun mk-prompt (string)
  (format *query-io* string)
  (read-line *query-io*)
)
(defvar count 0)
(defvar upper (parse-integer (mk-prompt "How many fibonacci numbers: ")))
(defvar a 0)
(defvar b 1)
(defvar c 0)
(loop
  (when (>= count upper) (return))
  (setf c a)
  (setf a (+ a b))
  (setf b c)
  (format t "~d " a)
  (setf count (+ count 1))
)
